home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / AmigaNorthThames / cgi-bin / tester.cgi < prev    next >
Text File  |  2001-04-21  |  4KB  |  106 lines
  1. #!/usr/bin/perl
  2.  
  3. print "Content-type: text/html\n\n";
  4. print "<html>\n" ;
  5. print "\n" ;
  6. print "<head>\n" ;
  7. print "<title>$ENV{'SERVER_NAME'} CGI Script Help File</title>\n" ;
  8. print "</head>\n" ;
  9. print "\n" ;
  10. print "<body bgcolor=\"#000000\" text=\"#C0C0C0\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">\n" ;
  11. print "\n" ;
  12. print "<p align=\"center\"><font face=\"Verdana\"><br>\n" ;
  13. print "Dot Matrix CGI Script Help File</p>\n" ;
  14. print "<div align=\"center\"><center>\n" ;
  15. print "\n" ;
  16. print "<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"75%\" bordercolor=\"#C0C0C0\">\n" ;
  17. print "<tr>\n" ;
  18. print "<td bgcolor=#C0C0C0><BR><CENTER><B><font color=#000000>Basic Configuration Information</B></font></CENTER><p></td></tr>\n" ;
  19.  
  20. print "<tr>\n" ;
  21. print "<td><font color=\"#C0C0C0\" face=\"Verdana\">Your path to Perl is correct.<br>\n" ;
  22. print "Your server is running Perl version<p>\n" ;
  23. print "<strong> $] </strong></font><p></td>\n" ;
  24. print "</tr>\n" ;
  25. print "<tr>\n" ;
  26. print "<td>Your domain name is<p>\n" ;
  27. print "<strong> $ENV{'SERVER_NAME'} </strong></p>\n" ;
  28. print "<p></td>\n" ;
  29. print "</tr>\n" ;
  30. print "<tr>\n" ;
  31. print "<td>The complete system path to this script is:<p>\n" ;
  32. print "<strong>$ENV{'SCRIPT_FILENAME'} </strong></p>\n" ;
  33. print "<p></td>\n" ;
  34. print "</tr>\n" ;
  35. print "<tr>\n" ;
  36. print "<td>The URL of this script is:<p>\n" ;
  37. print "<strong>http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}</strong><p></td>\n" ;
  38. print "</tr>\n" ;
  39. print "<td>The RELATIVE URL of this script is:<p>\n" ;
  40. print "<strong>$ENV{'SCRIPT_NAME'}</strong><p></td>\n" ;
  41. print "</tr>\n" ;
  42. print "<tr>\n" ;
  43. print "<td>Your server consists of:<p>\n" ;
  44. print "<strong>$ENV{'SERVER_SOFTWARE'}</strong><p></td>\n" ;
  45. print "</tr>\n" ;
  46. print "<tr>\n" ;
  47. print "<td bgcolor=#C0C0C0><BR><CENTER><B><font color=#000000>VERY detailed info below RECOMMENDED FOR SERVER ADMINS ONLY!:</B></font></CENTER><p></td></tr><HR>\n" ;
  48.  
  49.     while(($ekey, $eval) = each(%ENV)){
  50.     print "<tr><td><B>$ekey </B>: $eval<br></td></tr>\n";
  51.     if ($ekey eq 'PATH') {
  52.         $path = $eval;
  53.     }
  54.     }
  55. print <<raw;
  56. <hr><TR><TD>
  57. <h3>Other Server Info<BR><HR></h3>
  58. <tt>
  59. raw
  60.     $uname = `uname -a`;
  61. print "<b>Uname info:</b> $uname<hr><br>\n";
  62. $mydir = `ls -ld .`;
  63. print "<b>Working directory:</b> $mydir<hr><br>\n";
  64. $mypath = `pwd`;
  65. print "<b>Path to current directory:</b> $mypath<hr><br>\n";
  66. $myid = `id`;
  67. print "<b>Ids:</b> $myid<hr><br>\n";
  68. $tarfound = $perlfound = $smfound = 0;
  69. @paths = split(/:/, $path);
  70. foreach (@paths) {
  71.     if ( -e "$_/tar" ) {
  72.     $tarfound = 1;
  73.     print "<b>Tar found:</b> $_/tar<hr><br>\n";
  74.     }
  75.     if ( -e "$_/perl" ) {
  76.     $perlfound = 1;
  77.     print "<b>Perl found:</b> $_/perl<hr><br>\n";
  78.         $perlversion = `$_/perl -v`;
  79.         print "<b>Perl version:</b> $perlversion<hr><br>\n";
  80.     }
  81.     if ( -e "$_/sendmail" ) {
  82.     $smfound = 1;
  83.     print "<b>Sendmail found:</b> $_/sendmail<hr><br>\n";
  84.     }
  85. }
  86. if ($tarfound == 0) {
  87.     print "<B>MAY be a problem: tar not found on server PATH</b><hr><br>\n";
  88. }
  89. if ($perlfound == 0) {
  90.     print "<B>MAY be a problem: perl not found on server PATH</b><hr><br>\n";
  91. }
  92. if ($smfound == 0) {
  93.     print "<B>MAY be a problem: sendmail not found on server PATH</B><hr><br>\n";
  94. }
  95. print <<raw;
  96. </tt>
  97. raw
  98. print "<tr>\n" ;
  99. print "<td><p align=\"center\">Script by \n" ;
  100. print "<a href=\"http://www.dotmatrix.net\">Dot Matrix</a>.</font></td>\n" ;
  101. print "</tr>\n" ;
  102. print "</table>\n" ;
  103. print "</center></div>\n" ;
  104. print "</body>\n" ;
  105. print "</html>\n" ;
  106.